home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / ABUSESRC.ZIP / AbuseSrc / macabuse / imlib / makemake.lsp < prev    next >
Lisp/Scheme  |  1997-05-20  |  14KB  |  468 lines
  1. (print platform)
  2. (setq tmp_dir (if (eq platform 'WATCOM)
  3.                   "d:\\tmp\\"
  4.                 "/tmp/"))
  5.  
  6. (setq CC (select platform
  7.            ('AIX "xlC -+ ")
  8.            ('LINUX "g++ ")
  9.            ('SGI "g++ ")))
  10.  
  11. (setq watcom_include "$(%WATCOM)\\h")
  12.  
  13. (defun app (head tail) (if (null head) tail (cons (car head) (app (cdr head) tail))))
  14.  
  15. (defun get-string-section (string start end)
  16.   (if (> start end)
  17.       nil
  18.     (cons (elt string start) (get-string-section string (+ start 1) end))))
  19.  
  20. (defun replace-string-section (string start end replacement)
  21.   (concatenate 'string 
  22.            (get-string-section string 0 (- start 1))
  23.            replacement
  24.            (get-string-section string (+ end 1) (- (length string) 1))))
  25.   
  26.  
  27. (defun replace..withdd (string)
  28.   (let ((find (search ".." string)))
  29.     (if find
  30.     (replace..withdd  (replace-string-section string find (+ find 1) "dd"))
  31.       string)))
  32.  
  33. (defun replace.. (string)
  34.   (if (equal outdir ".")
  35.       string
  36.     (let ((find (search ".." string)))
  37.       (if find
  38.       (replace..withdd (replace-string-section string find (+ find 1) outdir))
  39.     string))))
  40.  
  41. ;(setq platform 'WATCOM)
  42. (setq dirs_to_make '("."))
  43.  
  44. (defun get_includes (include_list)
  45.   (if (eq platform 'WATCOM) 
  46.       (cons watcom_include include_list)
  47.     include_list))
  48.  
  49. (defun add_dir_to_make (dir_list new_dir)  
  50.   (if dir_list
  51.       (if (equal (car dir_list) new_dir)
  52.       nil
  53.     (add_dir_to_make (cdr dir_list) new_dir))
  54.     (setq dirs_to_make (cons new_dir dirs_to_make))))
  55.  
  56. (defun make_versions ()
  57.   (if (equal platform 'WATCOM)
  58.       '("debug" "opt")
  59.     '("debug" "opt" "profile")))
  60.  
  61. (defun default_version ()         ;; make will build all targets of this verison  
  62.   (if (equal platform 'LINUX)      ;; linux is debug platform
  63.       "debug"                     
  64.     "opt"))
  65.  
  66.  
  67. (defun plat_dot_name (platform)
  68.   (if (eq platform 'SGI)
  69.       ".sgi"
  70.     (if (eq platform 'SUN)
  71.     ".sun"
  72.       (if (eq platform 'AIX)
  73.       ".aix"
  74.     ""))))
  75.     
  76.  
  77. (defun get_version_extension (version platform)
  78.   (concatenate 'string
  79.            (select version
  80.                ("debug"   "")
  81.                ("opt"     "o")
  82.                ("profile" "p"))
  83.            (plat_dot_name platform)))
  84.            
  85.          
  86.            
  87.  
  88.  
  89. ;(setq o_files '("nfserver" "nfclient" "username" "clisp"    "gui"      "transp" 
  90. ;        "collide"  "trig"     "property" "lisp"     "cache"    "particle" 
  91. ;        "objects"  "server2"  "client"   "extend"   "console"  "ability" 
  92. ;        "items"    "dev"      "chars"    "level"    "smallfnt" "automap"
  93. ;        "help"     "intsect"  "loader"   "seq"      "points"   "fnt6x13"
  94. ;        "morpher"  "menu"     "director" "view"     "config"   "game" 
  95. ;        "light"    "devsel"   "crc"      "nnet/nnet")) 
  96.  
  97.  
  98. (defun platform_name (plat)
  99.      (select plat
  100.       ('WATCOM "wat")
  101.       ('LINUX_X11  "linux_x11")
  102.       ('LINUX_SVGA  "linux_svga")
  103.       ('LINUX       "linux")
  104.       ('AIX    "AIX")
  105.       ('SGI    "SGI")
  106.       ('SUN    "SUN")))
  107.  
  108.  
  109. (defun slash ()
  110.   (if (equal platform 'WATCOM)
  111.       "\\"
  112.     "/"))
  113.  
  114. (defun object_extension ()
  115.   (if (equal platform 'WATCOM)
  116.       ".obj"
  117.     ".o"))
  118.  
  119.  
  120. (defun version_dir (dir version_name plat) 
  121. ;  (let ((platform (if (or (equal plat 'LINUX_SVGA) (equal plat 'LINUX_X11))
  122. ;         "LINUX"
  123. ;           (platform_name plat))))
  124.     (concatenate 'string dir (platform_name plat) (slash) version_name))
  125.  
  126. (defun make_obj_name (dir basename version_name plat)
  127.   (concatenate 'string tmp_dir (mangle_oname
  128.                                 (concatenate 'string (version_dir dir version_name plat) (slash) basename (slash)))
  129.                (object_extension)))
  130.  
  131. (defun make_file_name ()
  132.   (if (equal platform 'WATCOM)
  133.       "makefile"
  134.     "Makefile"))
  135.  
  136.  
  137. (defun link_flags (ver plat)
  138.   (select plat
  139.       ('LINUX_SVGA (if (equal ver "profile") "-lvga -lm" "-lvga -lm"))
  140.       ('LINUX_X11 
  141.                "/lib/libXext.a /lib/libX11.a -lm")
  142.       ('SUN "-lX11 -lXext -lm")
  143.       ('SGI "-lX11 -lXext -lm")
  144.       ('AIX "-L/usr/lpp/X11/Xamples/extensions/lib -lXextSam -lX11 -lXext -lm")
  145.       ('WATCOM "")))
  146.  
  147.  
  148. (defun get_cflags (ver platform)
  149.   (if (equal platform 'WATCOM)
  150.       (concatenate 'string 
  151.            (if (equal ver "debug")
  152.                "/zq /d2"
  153.              "/omaxne /zp1 /zq -DNO_CHECK")
  154.            " -DMANAGE_MEM")
  155.     (if (equal ver "debug")
  156.     "-g -DMEM_CHECK -DMANAGE_MEM"
  157.       (if (equal ver "profile")
  158.       (if (eq platform 'SGI)
  159.           "-O2 -g -p -DMEM_CHECK -DMANAGE_MEM"    ; libcrt0 not supported on IRIX 5.3
  160.         "-O2 -g -pg -DMEM_CHECK -DMANAGE_MEM")
  161.     "-O2 -DMANAGE_MEM -DNO_CHECK"))))
  162.  
  163.  
  164. (defun get_compiler (file)
  165.     (if (equal platform 'WATCOM)
  166.         "wpp386"
  167.         CC))
  168.  
  169. (defun line_delimiter ()
  170.   (if (equal platform 'WATCOM)
  171.       "&"
  172.     "\\"))
  173.  
  174. (defun append_c (filename)
  175.   (concatenate 'string filename ".c"))
  176.  
  177. (defun get_objs (list ver plat)
  178.   (if (null list) nil
  179.     (let ((x (split_filename (car list) (concatenate 'string outdir (slash)) )))
  180.       (cons (make_obj_name (car x) (cdr x) ver plat) (get_objs (cdr list) ver plat)))))
  181.  
  182.  
  183.  
  184. (defun list_files (list)
  185.   (print "\t" (convert_slashes (car list) (slash)))
  186.   (if (cdr list)
  187.       (progn
  188.     (print " " (line_delimiter) "\n")
  189.     (list_files (cdr list)))
  190.     nil))
  191.  
  192.  
  193. (defun isa_target2 (list platform)
  194.   (if list
  195.       (if (eq platform (car list))
  196.       T
  197.     (isa_target2 (cdr list) platform))
  198.     nil))
  199.  
  200.  
  201. (defun isa_target (list platform)
  202.   (if list (isa_target2 list platform)
  203.     T))
  204.  
  205. (defun add_out_dir (name)
  206.   (if (equal outdir ".")
  207.       name
  208.     (concatenate 'string outdir (slash) name)))
  209.  
  210. (defun extend_name (name letter version do_it platform)
  211.   (if do_it   
  212.       (concatenate 'string name letter (get_version_extension version platform))
  213.     name))
  214.  
  215. (defun expand_targets (targets version)
  216.  
  217.   (if targets
  218.       (let ((plats (car (cdr (cdr (cdr (cdr (cdr (car targets))))))))
  219.         (extend (if (eq (car (cdr (cdr (car targets)))) 'self) nil T))
  220.         (target_name (car (car targets)))
  221.         (rest (cdr (car targets))))
  222.  
  223. ;    (open_file "/dev/tty" "wb" (print (concatenate 'string outdir target_name) "\n"))
  224. ;           (print targets))
  225.  
  226.     (if (eq platform 'LINUX)     
  227.         (if (isa_target plats 'LINUX_X11)
  228.         (cons (cons 'LINUX_X11 (cons (extend_name target_name "x" version extend platform) rest))
  229.               (if (isa_target plats 'LINUX_SVGA)
  230.               (cons    (cons 'LINUX_SVGA (cons (extend_name target_name "" version extend platform)
  231.                             rest))
  232.                 (expand_targets (cdr targets) version))
  233.             (expand_targets (cdr targets) version)))
  234.           (if (isa_target plats 'LINUX_SVGA)
  235.           (cons    (cons 'LINUX_SVGA (cons (extend_name target_name "" version extend platform)
  236.                         rest))
  237.             (expand_targets (cdr targets) version))
  238.         (expand_targets (cdr targets) version)))
  239.       (if (isa_target plats platform)
  240.           (cons
  241.            (cons platform (cons (extend_name target_name "" version extend platform)  rest))
  242.            (expand_targets (cdr targets) version)
  243.            )
  244.          (expand_targets (cdr targets) version))))))
  245.         
  246.  
  247.  
  248.  
  249. (defun make_lib_name (target platform version)
  250.   (let ((x (split_filename target (concatenate 'string "." (slash)))))
  251.     (replace.. (convert_slashes (concatenate 'string 
  252.                          (version_dir (car x) version platform) 
  253.                          (slash) (cdr x) (lib_ext)) (slash)))))
  254.  
  255.  
  256. (defun get_lib_list (target_list)
  257.   (nth 3 (car target_list)))
  258.  
  259. (defun list_targets (targets version)
  260.   (if targets
  261.       (let ((platform      (car (car targets)))
  262.         (target   (nth 1 (car targets)))
  263.         (ofiles   (nth 2 (car targets)))
  264.         (libs     (nth 3 (car targets)))
  265.         (inc      (get_includes (nth 4 (car targets))))
  266.         (cflags   (nth 5 (car targets))))
  267.     (print " ")
  268.     (if (eq libs 'self)
  269.         (print (make_lib_name target platform version))
  270.       (if (eq platform 'WATCOM)
  271.           (print target ".exe")
  272.         (print target)))
  273.     (list_targets (cdr targets) version))))
  274.  
  275. (defun list_depends (file version plat includes cflags libs type)
  276.   (let ((x (split_filename file (concatenate 'string outdir (slash)))))
  277.     (add_dir_to_make dirs_to_make 
  278.              (concatenate 'string (version_dir (car x) version plat) (slash)))
  279.  
  280.     (let ((ofile (make_obj_name (car x) (cdr x) version plat)))
  281.       (print ofile " : ")      
  282.       (print file ".c\n")
  283.       (compile_to_object file version plat includes cflags type)
  284.       (for i in (get_depends (concatenate 'string file ".c") (slash) includes) do
  285.      (print ofile " : " i "\n")))
  286.     ))
  287.  
  288.   
  289. (defun link_files (outname files version plat)
  290.   (print "\t")
  291.   (if (eq platform 'WATCOM)
  292.       (progn
  293.     (print "wlink @" outname ".lnk\n\n")
  294.     (open_file (concatenate 'string outname ".lnk") "wb"
  295.            (if (eq version "debug")
  296.                (print "debug line\n"))
  297.            (print "system dos4gw\n")
  298.            (print "option caseexact\n")
  299.            (print "option map=" outname ".map\n")
  300.            (print "debug all\n")
  301.            (print "name " outname ".exe\n")
  302.            (print "option stack=120k\n")
  303.            (for i in files do (print "file " i "\n"))
  304.            )
  305.     )
  306.     (progn
  307.       (print CC " -o " outname " " (line_delimiter) "\n")
  308.       (list_files files) 
  309.       (print " " (link_flags version plat))
  310.       (print "\n\n")
  311.       )))
  312.  
  313. (defun get_include_string (list)
  314.   (if list
  315.       (concatenate 'string (car list) (get_include_string (cdr list)))
  316.     "")) 
  317.  
  318. (defun compile_to_object (file version plat includes cflags type)
  319.   (let ((x (split_filename file (concatenate 'string outdir (slash)))))
  320.     (let ((ofile (make_obj_name (car x) (cdr x) version plat)))
  321.       (if (eq platform 'WATCOM)
  322.       (progn
  323.         (make_compile_header includes)
  324.         (if (eq 'C type)
  325.         (print "\twcc386 ")
  326.           (print "\twpp386 "))
  327.         (print file ".c -fo=" ofile " " (get_cflags version plat) " " cflags "\n\n"))
  328.     (progn
  329.       (if (eq 'C type)
  330.           (print "\tgcc")
  331.         (print "\t" CC))
  332.       (progn
  333.         (print " -c -o " ofile " " file ".c")
  334.         (for i in includes do (print " -I" i))
  335.         (print " " (get_cflags version plat) " " cflags "\n\n" )
  336.         ))))))
  337.  
  338. (defun lib_ext ()
  339.   (if (eq platform 'WATCOM) ".lib"
  340.     ".a"))
  341.  
  342. (defun create_archive (target platform version objs)
  343.   (let ((x (split_filename target (concatenate 'string "." (slash)))))
  344.     (let ((outname (make_lib_name target platform version)))
  345.       (if (eq platform 'WATCOM)      
  346.       (let ((link_bat (concatenate 'string (version_dir (car x) version platform)
  347.                     (slash) (cdr x) ".lnk")))
  348.         (make_dir (concatenate 'string (car x)  (platform_name platform) 
  349.                        (slash) version (slash)))
  350.         (open_file link_bat "wb"
  351.                (print outname "\n")
  352.                (for i in objs do
  353.                 (print "+ " (convert_slashes i (slash)) "\n")))
  354.         (print "\twlib /n @" link_bat "\n\n"))
  355.     (progn
  356.       (print "\tar ruvs " outname " " (line_delimiter) "\n")
  357.       (list_files objs)
  358.       (print "\n\n"))))))
  359.  
  360.  
  361.                 
  362.                     
  363.                
  364.  
  365. (defun make_target (list version)
  366.   (if list
  367.       (let ((platform      (car (car list)))
  368.         (target   (nth 1 (car list)))
  369.         (ofiles   (nth 2 (car list)))
  370.         (libs     (nth 3 (car list)))
  371.         (inc      (get_includes (nth 4 (car list))))
  372.         (cflags   (nth 5 (car list)))
  373.         (type     (nth 7 (car list))) )
  374.     (let ((obj_list  (get_objs ofiles version platform)))
  375.      
  376.       (print platform "_" target "_" version "_o_files = " (line_delimiter) "\n")
  377.       (list_files obj_list)
  378.       (print "\n\n")
  379.  
  380.       (make_target (cdr list) version)
  381.  
  382.       (if (eq libs 'self)
  383.           (progn
  384.         (print (make_lib_name target platform version) " : $(" 
  385.                platform "_" target "_" version "_o_files)\n")
  386.         (create_archive target platform version obj_list))
  387.         (progn
  388.           (if  (not (equal "." outdir))
  389.           (print outdir (slash)))
  390.           (print target)
  391.  
  392.           (if (and (not (eq libs 'self))
  393.                (eq platform 'WATCOM))
  394.           (print ".exe"))
  395.  
  396.           (print " : $(" platform "_" target "_" version "_o_files)\n")
  397.           (link_files target (app obj_list (get_lib_files libs platform version)) 
  398.               version platform)))
  399.  
  400.  
  401.       (for i in ofiles do
  402.            (list_depends (convert_slashes i (slash)) version platform inc 
  403.                  (if cflags cflags "") libs type ))
  404.       (print "\n")
  405.       ))))
  406.     
  407.  
  408.  
  409. (defun get_ex_libs (libname plat version)
  410.   (if (eq plat 'WATCOM) 
  411.       (if (equal libname "sound") "c:\\sos\\lib\\sosw1cr.lib" nil)
  412.     (if (eq plat 'LINUX_X11) (if (eq libname "winman") "-lX11 -lXext" nil)
  413.       (if (eq plat 'LINUX_SVGA) (if (eq libname "winman") "-lvga" nil)
  414.     nil))))
  415.                
  416.  
  417. (defun get_lib_files (libs plat version)  
  418.   (if libs
  419.       (let ((x (get_ex_libs (cdr (split_filename (car libs) "./")) plat version))
  420.         (rest (get_lib_files (cdr libs) plat version))
  421.         (this (make_lib_name (car libs) plat version)))
  422.     (if x 
  423.         (cons x (cons this rest))
  424.       (cons  this rest)))
  425.     nil))
  426.  
  427.     
  428. (defun make_include_string (list)
  429.   (if list
  430.       (concatenate 'string (car list) 
  431.            (if (cdr list)
  432.                (concatenate 'string ";" (make_include_string (cdr list)))
  433.              "")) 
  434.     ""))
  435.      
  436. (defun make_compile_header (include)
  437.   (if (eq platform 'WATCOM)
  438.       (progn
  439.     (print "\tset include=" (make_include_string include) "\n")) nil))
  440.     
  441.  
  442.  
  443. (progn
  444.  
  445. ;open_file (concatenate 'string (make_file_name) "." (platform_name platform)) "wb" 
  446.        (print "all : " (default_version) "\n\n")
  447.        (for i in (make_versions) do        
  448.         (print i " :")
  449.         (list_targets (expand_targets targets i) i)
  450.         (print "\n\techo Made " i "\n\n")
  451.         )
  452.        (for i in (make_versions) do
  453.         (make_target (expand_targets targets i) i))
  454.  
  455.  
  456. )
  457.  
  458. (print dirs_to_make)
  459. (for i in dirs_to_make do (make_dir i))
  460.  
  461.  
  462.  
  463.  
  464.  
  465.  
  466.  
  467.  
  468.